(calcFunc-ldiv): New function.

diff --git a/lisp/calc/calc-arith.el b/lisp/calc/calc-arith.el
index ba95ee7f713a5def3eaa536650e87bba16563c55..4d76e1eab5be0daf03e9d5f611546b257d7dd1e6 100644 (file)
--- a/lisp/calc/calc-arith.el
+++ b/lisp/calc/calc-arith.el
@@ -1854,6 +1854,10 @@
               (math-mul-zero b a))))
       (list '/ a b)))
 
+;;; Division from the left.
+(defun calcFunc-ldiv (a b)
+  (math-mul (math-pow a -1) b))
+
 
 (defun calcFunc-mod (a b)
   (math-normalize (list '% a b)))